home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib13.dsk
/
HPLOT ANIM LISTING 3.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
472b
|
8 lines
90 SHAPE = 147:INCR = 4
100 HGR : HPLOT 50,50 TO 50,60: HGR2 : POKE 251,SHAPE: POKE 207,INCR: REM CLEAR BOTH PAGES-SET UP SHAPE# AND INCREMENT
110 IF PEEK(37636) + PEEK(37637) *256 > = (279 -INCR) THEN 150: REM TEST FOR RIGHT EDGE OF SCREEN
120 CALL 38312: REM CALL FLIPR1 ROUTINE
130 GOTO 110
140 IF PEEK(37633) + PEEK(37634) *256 < = (0 +INCR) THEN 120: REM TEST FOR LEFT EDGE OF SCREEN
150 CALL 38356: REM CALL FLIPL1
160 GOTO 140: REM KEEP MOVING LEFT